home *** CD-ROM | disk | FTP | other *** search
/ Ian & Stuart's Australian Mac 1993 September / September 93.iso / Archives / Applications / Graphics / image / Pico 2.0 / Fun w⁄ Steve < prev    next >
Encoding:
Text File  |  1991-08-22  |  1.1 KB  |  44 lines  |  [TEXT/Pico]
  1. # Fun with Steve Jobs (Read in the "Steve" and "Clouds" pictures first)
  2.  
  3. # Steve reflected.
  4. steve[x-10,y]
  5. x < 128 ? steve[x-8,y] : steve[X-(x+8),y]
  6. x > 128 ? steve[x-8,y] : steve[X-(x+8),y]
  7. x > 128 ? steve[x-5,y] : steve[X-(x+5),y]
  8.  
  9. y  & 2 ? steve[x-12,y] : steve[X-(x+12),y]
  10. steve[x-12,y]/2 + steve[X-(x+12),y]/2
  11.  
  12. # Target Steve
  13. r & 16 ?  steve[x-12,y] : steve[X-(x+12),y]
  14. # Sunburst Steve
  15. a & 16 ?  steve[x-12,y] : steve[X-(x+12),y]
  16. # Stretched Steve
  17. steve[x-(R-r)+130,y]
  18. # Steve coneheads
  19. steve[x*2,y-(r)+120]
  20. # Squished Steve
  21. steve[x/2+50,y-(r)+120]
  22. # Bubble Steve
  23. steve[x-(R-r)+130,y-(R-r)+120]
  24.  
  25. # Grumpy Steve
  26. steve[x-((R-a/2)+130),y-((R-r)+200)]
  27. # Siamese Steve
  28. steve[x-(R-a/2)+130,y-((R-a/2)+200)]
  29. # Mixed Steve
  30. steve[x-15, a & 8 ? y : Y-y]
  31.  
  32. # Embossed Steve
  33. (steve + (Z/4-steve[x+2,y+2])) < 0 ? 0 : (steve + (Z/4-steve[x+2,y+2]))
  34. # Wallpaper Steve
  35. steve;old[x+(y/2)-64,y];old[x,y-(x/2)-64];old[x,y+128];(old+old[x+1,y]+old[x,y+1]+old[x+1,y+1])/4;old[x*2, y*2];x > 127 ? old[x,y+64] : old
  36. # Murky Steve
  37. steve[x,y-clouds[steve[y,x],steve]/8]
  38.  
  39. # Balloon Steve
  40. steve[x-(a)+128,y]
  41.  
  42. # Cloudy Steve
  43. (x * steve) / Z + ((Z-x) * clouds) / Z
  44.